Aminet 2/Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso/Aminet/dev/misc/toolbox.lha/Toolbox/lib/rex/ScanDrv.c

C/C++ Source or Header | 1993-03-13 | 578 b | 26 lines

/* $Id: ScanDrv.c,v 2.2 1992/08/07 15:29:41 grosch rel $ */

# include <stdio.h>
# include "Positions.h"
$@ # include "@.h"

main ()
{
   int Token, Count = 0;
   char Word [256];

$@    $_BeginScanner ();
   do {
$@       Token = $_GetToken ();
      Count ++;
# ifdef Debug
$@       if (Token != $_EofToken) (void) $_GetWord (Word); else Word [0] = '\0';
$@       WritePosition (stdout, $_Attribute.Position);
      (void) printf ("%5d %s\n", Token, Word);
# endif
$@    } while (Token != $_EofToken);
$@    $_CloseScanner ();
   (void) printf ("%d\n", Count);
   return 0;
}